home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1997
/
HAM Radio 1997.iso
/
vcls
/
rppicedt.000
/
rppicedt.dfm
/
rppicedt.txt
< prev
Wrap
Text File
|
1996-04-08
|
36KB
|
1,076 lines
object MyPictureEditorDlg: TMyPictureEditorDlg
Left = 358
Top = 100
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Quick Picture Editor'
ClientHeight = 451
ClientWidth = 500
Font.Color = clBlack
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
Icon.Data = {<image000.ico>}
PixelsPerInch = 120
Position = poScreenCenter
OnActivate = FormActivate
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyDown = FormKeyDown
TextHeight = 20
object AboutDialog: TNotebook
Left = 0
Top = 0
Width = 500
Height = 451
Align = alClient
PageIndex = 1
TabOrder = 0
object TPage
Left = 0
Top = 0
Caption = 'Default'
object FileMngrPnl: TPanel
Left = 0
Top = 28
Width = 500
Height = 253
Align = alClient
BevelInner = bvLowered
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object ButtonPnl: TPanel
Left = 370
Top = 2
Width = 128
Height = 222
Align = alRight
BevelOuter = bvNone
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object Edit1: TEdit
Left = 13
Top = 79
Width = 107
Height = 30
TabOrder = 5
Text = '*.bmp'
Visible = False
end
object OK: TBitBtn
Left = 6
Top = 0
Width = 119
Height = 35
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
Kind = bkOK
Margin = 6
Spacing = -1
end
object Cancel: TBitBtn
Left = 6
Top = 40
Width = 119
Height = 35
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
Kind = bkCancel
Margin = 6
Spacing = -1
end
object Stretch: TBitBtn
Left = 6
Top = 185
Width = 119
Height = 35
Caption = 'S&Tretch'
Font.Color = clWindowText
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = StretchClick
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
EEEEEEEEEEEEEEEEEEEEEEEEEEE99EEEEEEEEEEEEEE99EEEEEEEEEEEEE9999EE
EEEEEEEEEE9999EEEEEEEEEEE999999EEEEEEEEEE999999EEEEEEEEEEEE99EEE
EEEEEEEEEEE99EEEEEEEEE9EEEE99EEE9EEEEE9EEEE99EEE9EEEE99EEEE99EEE
99EEE99EEEE99EEE99EE9999999EE999999E9999999EE999999E9999999EE999
999E9999999EE999999EE99EEEE99EEE99EEE99EEEE99EEE99EEEE9EEEE99EEE
9EEEEE9EEEE99EEE9EEEEEEEEEE99EEEEEEEEEEEEEE99EEEEEEEEEEEE999999E
EEEEEEEEE999999EEEEEEEEEEE9999EEEEEEEEEEEE9999EEEEEEEEEEEEE99EEE
EEEEEEEEEEE99EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE000000000000
0000000000000000000000000000000000000000}
Margin = 6
NumGlyphs = 2
Spacing = -1
end
object Clear: TBitBtn
Left = 6
Top = 105
Width = 119
Height = 35
Caption = '&Clear'
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = ClearClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B55555555555555750000}
Margin = 6
NumGlyphs = 2
Spacing = -1
end
object Save: TBitBtn
Left = 6
Top = 145
Width = 119
Height = 35
Caption = '&Save'
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = SaveClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
7700333333337777777733333333008088003333333377F73377333333330088
88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
Margin = 6
NumGlyphs = 2
Spacing = -1
end
end
object Panel1: TPanel
Left = 2
Top = 2
Width = 368
Height = 222
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object FileHeader: TPanel
Left = 0
Top = 0
Width = 368
Height = 25
Align = alTop
BevelOuter = bvLowered
Caption = 'FileHeader'
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object Header: THeader
Left = 1
Top = 1
Width = 366
Height = 23
Align = alClient
AllowResize = False
BorderStyle = bsNone
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
Sections.Sections = (
#0'159'#0'Path:'
#0'47'#0'Files:')
TabOrder = 0
end
end
object HistoryPnl: TPanel
Left = 0
Top = 191
Width = 368
Height = 31
Align = alBottom
Alignment = taLeftJustify
BevelOuter = bvNone
Caption = ' History:'
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
TabOrder = 1
object ComboBox1: TComboBox
Left = 76
Top = 3
Width = 292
Height = 24
Ctl3D = True
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ItemHeight = 16
ParentCtl3D = False
ParentFont = False
TabOrder = 0
OnChange = ComboBox1Change
end
end
object DirPnl: TPanel
Left = 0
Top = 25
Width = 199
Height = 166
Align = alLeft
BevelOuter = bvLowered
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
object DrivePnl: TPanel
Left = 1
Top = 132
Width = 197
Height = 33
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
object DriveBox: TDriveComboBox
Left = 3
Top = 4
Width = 193
Height = 26
DirList = DirList
Font.Color = clWindowText
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
end
object DirList: TDirectoryListBox
Left = 1
Top = 1
Width = 197
Height = 131
Align = alClient
Ctl3D = False
DragCursor = crSizeWE
DragMode = dmAutomatic
FileList = FileList
Font.Color = clWindowText
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ItemHeight = 20
ParentCtl3D = False
ParentFont = False
TabOrder = 1
OnChange = DirListChange
end
end
object FilePnl: TPanel
Left = 199
Top = 25
Width = 169
Height = 166
Align = alClient
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 3
object FileNamePnl: TPanel
Left = 1
Top = 132
Width = 167
Height = 33
Align = alBottom
BevelOuter = bvNone
Caption = ' '
TabOrder = 0
object FilterBox: TFilterComboBox
Left = 3
Top = 5
Width = 165
Height = 24
FileList = FileList
Filter = 'Bitmap|*.bmp|Icon|*.ico|MetaFiles|*.wmf'
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnChange = FilterBoxChange
end
end
object ViewSelect: TNotebook
Left = 1
Top = 1
Width = 167
Height = 131
Align = alClient
PageIndex = 1
TabOrder = 1
object TPage
Left = 0
Top = 0
Caption = 'FileList'
object FileList: TFileListBox
Left = 0
Top = 0
Width = 167
Height = 131
Align = alClient
FileEdit = Edit1
Font.Color = clWindowText
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ItemHeight = 20
Mask = '*.bmp'
ParentFont = False
TabOrder = 0
OnChange = FileListChange
OnDblClick = FileListDblClick
end
end
object TPage
Left = 0
Top = 0
Caption = 'PicList'
object Grid: TDrawGrid
Left = 0
Top = 0
Width = 167
Height = 131
Align = alClient
Color = clBtnFace
Ctl3D = True
DefaultColWidth = 29
DefaultRowHeight = 29
FixedColor = clHighlight
FixedCols = 0
FixedRows = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goThumbTracking]
ParentCtl3D = False
RowCount = 10
ScrollBars = ssVertical
TabOrder = 0
OnDblClick = GridDblClick
OnDrawCell = GridDrawCell
OnSelectCell = GridSelectCell
end
end
end
end
end
object HeaderPnl: TPanel
Left = 2
Top = 224
Width = 496
Height = 27
Align = alBottom
BevelInner = bvLowered
BevelOuter = bvNone
Caption = 'HeaderPnl'
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
object ExampHdrPnl: TPanel
Left = 1
Top = 1
Width = 494
Height = 25
Align = alClient
BevelOuter = bvNone
Caption = 'Examples'
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
TabOrder = 0
object NumGlyphsLbl: TLabel
Left = 5
Top = 3
Width = 128
Height = 20
Caption = 'Number Glyphs: '
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
end
object SizeLbl: TLabel
Left = 438
Top = 3
Width = 42
Height = 20
Alignment = taRightJustify
Caption = 'Size: '
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
end
end
end
end
object Menu: TPanel
Left = 0
Top = 0
Width = 500
Height = 28
Align = alTop
BevelOuter = bvNone
Color = clMenu
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
object Options: TPanel
Left = 0
Top = 1
Width = 78
Height = 27
Alignment = taLeftJustify
BevelOuter = bvNone
Caption = ' &Options'
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = OptionsClick
end
object Edit: TPanel
Left = 78
Top = 1
Width = 77
Height = 27
Alignment = taLeftJustify
BevelOuter = bvNone
Caption = ' &Edit'
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = EditClick
end
object About: TPanel
Left = 129
Top = 1
Width = 69
Height = 27
Alignment = taLeftJustify
BevelOuter = bvNone
Caption = ' &About '
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = AboutClick
end
end
object ExamplesPnl: TPanel
Left = 0
Top = 281
Width = 500
Height = 170
Align = alBottom
BevelOuter = bvNone
TabOrder = 2
object ImagePnl: TPanel
Left = 209
Top = 0
Width = 291
Height = 170
Align = alClient
BevelOuter = bvLowered
Caption = '(None)'
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
TabOrder = 0
object Image1: TImage
Left = 1
Top = 1
Width = 289
Height = 168
Align = alClient
Center = True
end
end
object ExampPnl: TPanel
Left = 0
Top = 0
Width = 209
Height = 170
Align = alLeft
BevelOuter = bvLowered
TabOrder = 1
object Speed: TSpeedButton
Left = 63
Top = 131
Width = 32
Height = 32
NumGlyphs = 2
end
object Label3: TLabel
Left = 5
Top = 138
Width = 47
Height = 20
Caption = 'Speed'
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
end
object Bittop: TBitBtn
Left = 6
Top = 6
Width = 89
Height = 65
Caption = 'Top'
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
Layout = blGlyphTop
NumGlyphs = 2
end
object BitBttm: TBitBtn
Left = 113
Top = 6
Width = 90
Height = 65
Caption = 'Bottom'
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
Layout = blGlyphBottom
NumGlyphs = 2
end
object Bitlft: TBitBtn
Left = 6
Top = 80
Width = 89
Height = 39
Caption = 'Left'
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
Margin = 9
NumGlyphs = 2
Spacing = -1
end
object BitRht: TBitBtn
Left = 113
Top = 80
Width = 90
Height = 39
Caption = 'Right'
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
Layout = blGlyphRight
Margin = 9
NumGlyphs = 2
Spacing = -1
end
object CheckBox1: TCheckBox
Left = 113
Top = 138
Width = 121
Height = 21
Caption = ' Disable'
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = CheckBox1Click
end
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'About'
object Bevel1: TBevel
Left = 13
Top = 9
Width = 475
Height = 372
Shape = bsFrame
end
object Label1: TLabel
Left = 113
Top = 14
Width = 273
Height = 29
Caption = 'Quick Picture Editor'
Font.Color = clBlue
Font.Height = -25
Font.Name = 'Century Schoolbook'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 15
Top = 386
Width = 117
Height = 36
Caption = 'Copyright: BDC November 1995'
Font.Color = clBlue
Font.Height = -15
Font.Name = 'Century Schoolbook'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
WordWrap = True
end
object Label2: TLabel
Left = 429
Top = 386
Width = 55
Height = 40
Alignment = taRightJustify
AutoSize = False
Caption = 'Version 2.1'
Font.Color = clBlue
Font.Height = -15
Font.Name = 'Century Schoolbook'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
WordWrap = True
end
object Memo1: TMemo
Left = 28
Top = 59
Width = 448
Height = 307
TabStop = False
Alignment = taCenter
BorderStyle = bsNone
Color = clBtnFace
Ctl3D = True
Enabled = False
Font.Color = clBlack
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'This product is issued as shareware. You are licenced '
'to try it for thirty days. If you decide to keep it, you '
'must register it.'
''
'Registration is only $10.00 + $3.00 shipping.'
''
'On Compuserve Go SWREG ID # 8503 or send check'
'or money order drawn on a U.S. bank to:'
''
'Brian Dick'
'C/O PHC'
'3333 Michelson Dr.'
'Park Place Towers'
'Irvine, CA 92715'
''
'If you have any suggestions/comments I can be '
'reached at:'
'Brian_@msn.com or 70754,3725 on Compuserve')
ParentCtl3D = False
ParentFont = False
TabOrder = 0
end
object BitBtn1: TBitBtn
Left = 196
Top = 394
Width = 113
Height = 44
Caption = 'I &Agree'
Default = True
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = BitBtn1Click
Glyph.Data = {
BE060000424DBE06000000000000360400002800000024000000120000000100
0800000000008802000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000688DA200BBCC
D500000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000DDE6EA00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
0303030303030303030303030303030303030303030303030303030303030303
03030303030303030303030303030303030303030303FF030303030303030303
03030303030303040403030303030303030303030303030303F8F8FF03030303
03030303030303030303040202040303030303030303030303030303F80303F8
FF030303030303030303030303040202020204030303030303030303030303F8
03030303F8FF0303030303030303030304020202020202040303030303030303
0303F8030303030303F8FF030303030303030304020202FA0202020204030303
0303030303F8FF0303F8FF030303F8FF03030303030303020202FA03FA020202
040303030303030303F8FF03F803F8FF0303F8FF03030303030303FA02FA0303
03FA0202020403030303030303F8FFF8030303F8FF0303F8FF03030303030303
FA0303030303FA0202020403030303030303F80303030303F8FF0303F8FF0303
0303030303030303030303FA0202020403030303030303030303030303F8FF03
03F8FF03030303030303030303030303FA020202040303030303030303030303
0303F8FF0303F8FF03030303030303030303030303FA02020204030303030303
03030303030303F8FF0303F8FF03030303030303030303030303FA0202020403
030303030303030303030303F8FF0303F8FF03030303030303030303030303FA
0202040303030303030303030303030303F8FF03F8FF03030303030303030303
03030303FA0202030303030303030303030303030303F8FFF803030303030303
030303030303030303FA0303030303030303030303030303030303F803030303
0303030303030303030303030303030303030303030303030303030303030303
0303}
NumGlyphs = 2
end
end
object TPage
Left = 0
Top = 0
Caption = 'About Registered'
object Bevel3: TBevel
Left = 6
Top = 9
Width = 489
Height = 221
Shape = bsFrame
end
object Image14: TImage
Left = 23
Top = 23
Width = 65
Height = 62
Picture.Data = {<image001.bmp>}
end
object Label5: TLabel
Left = 193
Top = 11
Width = 110
Height = 46
Caption = 'Quick'
Font.Color = clBlue
Font.Height = -33
Font.Name = 'Arial Black'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 138
Top = 51
Width = 316
Height = 38
Caption = 'Picture Editor v2.1'
Font.Color = clBlue
Font.Height = -27
Font.Name = 'Arial Black'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
end
object Memo2: TMemo
Left = 21
Top = 93
Width = 459
Height = 121
TabStop = False
Alignment = taCenter
BorderStyle = bsNone
Color = clBtnFace
Ctl3D = True
Enabled = False
Font.Color = clBlack
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = []
Lines.Strings = (
'Copyright: BDC November 1995'
''
'Send any suggestions/comments to:'
''
'Brian_@msn.com or 70754,3725 on Compuserve'
''
'Registered to: Allen Te')
ParentCtl3D = False
ParentFont = False
TabOrder = 0
end
object BitBtn2: TBitBtn
Left = 194
Top = 234
Width = 114
Height = 40
Caption = 'OK'
Default = True
Font.Color = clBlack
Font.Height = -18
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = BitBtn1Click
Glyph.Data = {
BE060000424DBE06000000000000360400002800000024000000120000000100
0800000000008802000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000688DA200BBCC
D500000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000DDE6EA00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
0303030303030303030303030303030303030303030303030303030303030303
03030303030303030303030303030303030303030303FF030303030303030303
03030303030303040403030303030303030303030303030303F8F8FF03030303
03030303030303030303040202040303030303030303030303030303F80303F8
FF030303030303030303030303040202020204030303030303030303030303F8
03030303F8FF0303030303030303030304020202020202040303030303030303
0303F8030303030303F8FF030303030303030304020202FA0202020204030303
0303030303F8FF0303F8FF030303F8FF03030303030303020202FA03FA020202
040303030303030303F8FF03F803F8FF0303F8FF03030303030303FA02FA0303
03FA0202020403030303030303F8FFF8030303F8FF0303F8FF03030303030303
FA0303030303FA0202020403030303030303F80303030303F8FF0303F8FF0303
0303030303030303030303FA0202020403030303030303030303030303F8FF03
03F8FF03030303030303030303030303FA020202040303030303030303030303
0303F8FF0303F8FF03030303030303030303030303FA02020204030303030303
03030303030303F8FF0303F8FF03030303030303030303030303FA0202020403
030303030303030303030303F8FF0303F8FF03030303030303030303030303FA
0202040303030303030303030303030303F8FF03F8FF03030303030303030303
03030303FA0202030303030303030303030303030303F8FFF803030303030303
030303030303030303FA0303030303030303030303030303030303F803030303
0303030303030303030303030303030303030303030303030303030303030303
0303}
NumGlyphs = 2
end
end
end
object SaveDialog: TSaveDialog
Options = [ofOverwritePrompt]
Title = 'Save picture as'
Left = 211
Top = 231
end
object EditPop: TPopupMenu
OnPopup = EditPopPopup
Left = 177
Top = 231
object Copy1: TMenuItem
Caption = '&Copy'
Enabled = False
OnClick = Copy1Click
ShortCutText = 'Ctrl+C'
end
object Paste1: TMenuItem
Caption = '&Paste'
Enabled = False
OnClick = Paste1Click
ShortCutText = 'Ctrl+V'
end
end
object OptionsPop: TPopupMenu
OnPopup = OptionsPopPopup
Left = 245
Top = 232
object View: TMenuItem
Caption = '&View'
object TextList: TMenuItem
Caption = '&Text'
OnClick = TextListClick
end
object GraphicList: TMenuItem
Caption = '&Graphic'
OnClick = GraphicListClick
end
end
object Examples: TMenuItem
Caption = '&Examples'
object None: TMenuItem
Caption = '&None'
OnClick = NoneClick
end
object ImageOnly: TMenuItem
Caption = '&Image Only'
OnClick = ImageOnlyClick
end
object ImageButtons: TMenuItem
Caption = 'Image && &Buttons'
OnClick = ImageButtonsClick
end
end
object N1: TMenuItem
Caption = '-'
end
object Warn: TMenuItem
Caption = '&Warn on Clear'
OnClick = WarnClick
end
end
end